Collection of Tools & Utilities/Collection of Tools and Utilities.iso/clipper/oclip.zip/IVAR.ASM

Assembly Source File | 1991-11-08 | 6KB | 281 lines

;╔══════════════════════════════════════════════════════════════════════╗
;║                                o:Clip                                ║
;║             An Object Oriented Extension to Clipper 5.01             ║
;║                 (c) 1991 Peter M. Freese, CyberSoft                  ║
;╚══════════════════════════════════════════════════════════════════════╝
;
;Version 1.01 - November 8, 1991
;
        IDEAL
        MODEL LARGE
        EXTRN __lbase:WORD,__eval:WORD
        EXTRN __cat:FAR

        CODESEG

PROC __IVAR01 FAR
PUBLIC __IVAR01
        mov    ax,1
        jmp    __IVAR
ENDP __IVAR01
PROC __IVAR02 FAR
PUBLIC __IVAR02
        mov    ax,2
        jmp    __IVAR
ENDP __IVAR02
PROC __IVAR03 FAR
PUBLIC __IVAR03
        mov    ax,3
        jmp    __IVAR
ENDP __IVAR03
PROC __IVAR04 FAR
PUBLIC __IVAR04
        mov    ax,4
        jmp    __IVAR
ENDP __IVAR04
PROC __IVAR05 FAR
PUBLIC __IVAR05
        mov    ax,5
        jmp    __IVAR
ENDP __IVAR05
PROC __IVAR06 FAR
PUBLIC __IVAR06
        mov    ax,6
        jmp    __IVAR
ENDP __IVAR06
PROC __IVAR07 FAR
PUBLIC __IVAR07
        mov    ax,7
        jmp    __IVAR
ENDP __IVAR07
PROC __IVAR08 FAR
PUBLIC __IVAR08
        mov    ax,8
        jmp    __IVAR
ENDP __IVAR08
PROC __IVAR09 FAR
PUBLIC __IVAR09
        mov    ax,9
        jmp    __IVAR
ENDP __IVAR09
PROC __IVAR10 FAR
PUBLIC __IVAR10
        mov    ax,10
        jmp    __IVAR
ENDP __IVAR10
PROC __IVAR11 FAR
PUBLIC __IVAR11
        mov    ax,11
        jmp    __IVAR
ENDP __IVAR11
PROC __IVAR12 FAR
PUBLIC __IVAR12
        mov    ax,12
        jmp    __IVAR
ENDP __IVAR12
PROC __IVAR13 FAR
PUBLIC __IVAR13
        mov    ax,13
        jmp    __IVAR
ENDP __IVAR13
PROC __IVAR14 FAR
PUBLIC __IVAR14
        mov    ax,14
        jmp    __IVAR
ENDP __IVAR14
PROC __IVAR15 FAR
PUBLIC __IVAR15
        mov    ax,15
        jmp    __IVAR
ENDP __IVAR15
PROC __IVAR16 FAR
PUBLIC __IVAR16
        mov    ax,16
        jmp    __IVAR
ENDP __IVAR16
PROC __IVAR17 FAR
PUBLIC __IVAR17
        mov    ax,17
        jmp    __IVAR
ENDP __IVAR17
PROC __IVAR18 FAR
PUBLIC __IVAR18
        mov    ax,18
        jmp    __IVAR
ENDP __IVAR18
PROC __IVAR19 FAR
PUBLIC __IVAR19
        mov    ax,19
        jmp    __IVAR
ENDP __IVAR19
PROC __IVAR20 FAR
PUBLIC __IVAR20
        mov    ax,20
        jmp    __IVAR
ENDP __IVAR20
PROC __IVAR21 FAR
PUBLIC __IVAR21
        mov    ax,21
        jmp    __IVAR
ENDP __IVAR21
PROC __IVAR22 FAR
PUBLIC __IVAR22
        mov    ax,22
        jmp    __IVAR
ENDP __IVAR22
PROC __IVAR23 FAR
PUBLIC __IVAR23
        mov    ax,23
        jmp    __IVAR
ENDP __IVAR23
PROC __IVAR24 FAR
PUBLIC __IVAR24
        mov    ax,24
        jmp    __IVAR
ENDP __IVAR24
PROC __IVAR25 FAR
PUBLIC __IVAR25
        mov    ax,25
        jmp    __IVAR
ENDP __IVAR25
PROC __IVAR26 FAR
PUBLIC __IVAR26
        mov    ax,26
        jmp    __IVAR
ENDP __IVAR26
PROC __IVAR27 FAR
PUBLIC __IVAR27
        mov    ax,27
        jmp    __IVAR
ENDP __IVAR27
PROC __IVAR28 FAR
PUBLIC __IVAR28
        mov    ax,28
        jmp    __IVAR
ENDP __IVAR28
PROC __IVAR29 FAR
PUBLIC __IVAR29
        mov    ax,29
        jmp    __IVAR
ENDP __IVAR29
PROC __IVAR30 FAR
PUBLIC __IVAR30
        mov    ax,30
        jmp    __IVAR
ENDP __IVAR30
PROC __IVAR31 FAR
PUBLIC __IVAR31
        mov    ax,31
        jmp    __IVAR
ENDP __IVAR31
PROC __IVAR32 FAR
PUBLIC __IVAR32
        mov    ax,32
        jmp    __IVAR
ENDP __IVAR32
PROC __IVAR33 FAR
PUBLIC __IVAR33
        mov    ax,33
        jmp    __IVAR
ENDP __IVAR33
PROC __IVAR34 FAR
PUBLIC __IVAR34
        mov    ax,34
        jmp    __IVAR
ENDP __IVAR34
PROC __IVAR35 FAR
PUBLIC __IVAR35
        mov    ax,35
        jmp    __IVAR
ENDP __IVAR35
PROC __IVAR36 FAR
PUBLIC __IVAR36
        mov    ax,36
        jmp    __IVAR
ENDP __IVAR36
PROC __IVAR37 FAR
PUBLIC __IVAR37
        mov    ax,37
        jmp    __IVAR
ENDP __IVAR37
PROC __IVAR38 FAR
PUBLIC __IVAR38
        mov    ax,38
        jmp    __IVAR
ENDP __IVAR38
PROC __IVAR39 FAR
PUBLIC __IVAR39
        mov    ax,39
        jmp    __IVAR
ENDP __IVAR39
PROC __IVAR40 FAR
PUBLIC __IVAR40
        mov    ax,40
        jmp    __IVAR
ENDP __IVAR40
PROC __IVAR41 FAR
PUBLIC __IVAR41
        mov    ax,41
        jmp    __IVAR
ENDP __IVAR41
PROC __IVAR42 FAR
PUBLIC __IVAR42
        mov    ax,42
        jmp    __IVAR
ENDP __IVAR42
PROC __IVAR43 FAR
PUBLIC __IVAR43
        mov    ax,43
        jmp    __IVAR
ENDP __IVAR43
PROC __IVAR44 FAR
PUBLIC __IVAR44
        mov    ax,44
        jmp    __IVAR
ENDP __IVAR44
PROC __IVAR45 FAR
PUBLIC __IVAR45
        mov    ax,45
        jmp    __IVAR
ENDP __IVAR45
PROC __IVAR46 FAR
PUBLIC __IVAR46
        mov    ax,46
        jmp    __IVAR
ENDP __IVAR46
PROC __IVAR47 FAR
PUBLIC __IVAR47
        mov    ax,47
        jmp    __IVAR
ENDP __IVAR47
PROC __IVAR48 FAR
PUBLIC __IVAR48
        mov    ax,48
        jmp    __IVAR
ENDP __IVAR48
PROC __IVAR49 FAR
PUBLIC __IVAR49
        mov    ax,49
        jmp    __IVAR
ENDP __IVAR49
PROC __IVAR50 FAR
PUBLIC __IVAR50
        mov    ax,50
        jmp    __IVAR
ENDP __IVAR50

PROC __IVAR FAR
        push    [__eval]
        mov     bx,0FFFFh
        push    bx
        push    ax      ; cargo index number
        mov     ax,[__lbase]
        add     ax,14
        push    ax
        call    far __cat
        add     sp,8
        retf
ENDP __IVAR

END